home *** CD-ROM | disk | FTP | other *** search
/ Max Calendar 2001 / Max Calendar 2001.iso / pc / Data / Utility.dxr / 00129_Bottone DeskTop12.ls < prev    next >
Encoding:
Text File  |  2000-10-16  |  753 b   |  26 lines
  1. global gAdrs
  2.  
  3. on mouseUp
  4.   if integer(getAt(getAt(the desktopRectList, 1), 3)) < 1024 then
  5.     DestFile = getOSDirectory() & "\dic800.bmp"
  6.     SourceFile = gAdrs & "ImgDesk\Img800\dic800.bmp"
  7.     Ok = baCopyFile(SourceFile, DestFile, "Always+")
  8.     if Ok <> 0 then
  9.       sprite(25).visible = 1
  10.       sprite(26).visible = 1
  11.       updateStage()
  12.     end if
  13.     baSetWallpaper(getOSDirectory() & "\dic800.bmp", 1)
  14.   else
  15.     DestFile = getOSDirectory() & "\dic1024.bmp"
  16.     SourceFile = gAdrs & "ImgDesk\Img1024\dic1024.bmp"
  17.     Ok = baCopyFile(SourceFile, DestFile, "Always+")
  18.     if Ok <> 0 then
  19.       sprite(25).visible = 1
  20.       sprite(26).visible = 1
  21.       updateStage()
  22.     end if
  23.     baSetWallpaper(getOSDirectory() & "\dic1024.bmp", 1)
  24.   end if
  25. end
  26.